home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AutoPica.cpt / AutoPicaPole / card_2858.txt < prev    next >
Text File  |  1987-12-30  |  5KB  |  232 lines
  1. -- card: 2858 from stack: in
  2. -- bmap block id: 2229
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   choose browse tool
  9.   click at the loc of card field Fig
  10. end openCard
  11.  
  12.  
  13.  
  14. -- part 6 (button)
  15. -- low flags: 00
  16. -- high flags: 2006
  17. -- rect: left=83 top=196 right=210 bottom=100
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Inch
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   set hilite of card button Centi to false
  29.   delete line 1 of field Type
  30.   put "inches" into field Type
  31.   delete line 1 of card field Fig
  32.   click at the loc of card field Fig
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 7 (button)
  38. -- low flags: 00
  39. -- high flags: 2006
  40. -- rect: left=210 top=196 right=210 bottom=227
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Centi
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   set hilite of card button Inch to false
  52.   delete line 1 of field Type
  53.   put "centimeters" into field Type
  54.   delete line 1 of card field Fig
  55.   click at the loc of card field Fig
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 8 (field)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=224 top=214 right=237 bottom=303
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 65535
  67. -- font id: 34
  68. -- text size: 18
  69. -- style flags: 0
  70. -- line height: 24
  71. -- part name: Fig
  72.  
  73.  
  74. -- part 10 (button)
  75. -- low flags: 00
  76. -- high flags: 2000
  77. -- rect: left=326 top=239 right=262 bottom=412
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Convert
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   Global Wee
  89.   Global Wow
  90.   if hilite of card button Inch is true then put card field Fig into Wow
  91.   multiply Wow by 6
  92.   if hilite of card button Centi is true then put card field Fig into Wee
  93.   multiply Wee by 2.3622
  94.   put card field Fig into card field AFig
  95.   if card field Fig is "1" then put "inch is" into field AType
  96.   else put field Type && "is" into field AType
  97.   if hilite of card button Inch is true then put Wow into card field Pica
  98.   else if hilite of card button Centi is true then put Wee into card field Pica
  99.   global Name
  100.   put "picas, " & Name & "." into card field N
  101. end mouseUp
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111. -- part 11 (field)
  112. -- low flags: 01
  113. -- high flags: 0000
  114. -- rect: left=28 top=262 right=285 bottom=107
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 65535
  118. -- font id: 34
  119. -- text size: 18
  120. -- style flags: 0
  121. -- line height: 24
  122. -- part name: AFig
  123.  
  124.  
  125. -- part 12 (field)
  126. -- low flags: 01
  127. -- high flags: 0000
  128. -- rect: left=28 top=287 right=310 bottom=107
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 65535
  132. -- font id: 34
  133. -- text size: 18
  134. -- style flags: 0
  135. -- line height: 24
  136. -- part name: Pica
  137.  
  138.  
  139. -- part 13 (field)
  140. -- low flags: 01
  141. -- high flags: 0000
  142. -- rect: left=110 top=287 right=312 bottom=366
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 0
  146. -- font id: 34
  147. -- text size: 18
  148. -- style flags: 0
  149. -- line height: 24
  150. -- part name: N
  151.  
  152.  
  153. -- part 16 (button)
  154. -- low flags: 00
  155. -- high flags: 2000
  156. -- rect: left=412 top=292 right=317 bottom=449
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 1011 / 1011
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Home
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   go Home
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 17 (button)
  173. -- low flags: 00
  174. -- high flags: 2000
  175. -- rect: left=457 top=293 right=318 bottom=478
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Quit
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   answer "Are you sure you want to quit THIS?!?" with "Yes" or "Hell No!"
  187.   if it is "Hell No!" then exit mouseUp
  188.   else if it is "Yes" then doMenu Quit HyperCard
  189. end mouseUp
  190.  
  191.  
  192.  
  193.  
  194. -- part 18 (button)
  195. -- low flags: 00
  196. -- high flags: 2000
  197. -- rect: left=372 top=293 right=318 bottom=409
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 2478 / 2478
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: Home
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   visual effect zoom open
  209.   go next
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 19 (button)
  215. -- low flags: 00
  216. -- high flags: 0000
  217. -- rect: left=389 top=131 right=166 bottom=426
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: AutoPicaPole
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   visual effect zoom open
  229.   go to stack AutoPicaPole
  230. end mouseUp
  231.  
  232.